الكامل في قواعد البيانات إعداد: المهندس عدي ياسين Email: engauday@hotmail.com‏ 


بسم الله الرحمن الرحيم 
التعامل مع قواعد البيانات باستخدام فيجوال بيسك دوت نت 
اخوتي الكرام ... 
اقدم لكم هذا الدرس المتواضع حول كيفية التعامل مع قواعد البيانات باستخدام لغة فيجوال بيسك دوت نت... 
في هذا الدرس سنتعلم المفاهيم التالية : 
ربط قاعدة البيانات من نوع اكسس » ببرنامجنا بصورة برمجية وليس عن طريق المعالج .. 
عرض معلومات قاعدة البيانات على النموذج باستخدام صناديق النصوص . 
انشاء ازرار (5٥٥))kں8‏ ) للتنقل بين سجلات قاعدة البيانات . 
كتابة الشفرة اللازمة لاضافة سجل جديد لقاعدة البيانات . 
كتابة الشفرة اللازمة لحذف سجل موجود في قاعدة البيانات . 
كتابة الشفرة اللازمة لتعديل احد سجلات قاعدة البيانات . 
البحث عن معلومات ضمن قاعدة البيانات وعرض نتيجة البحث على شبكة بيانات (4)6١‏ وامكانية الحذف او 
التعديل على السجلات في نتائج البحث » وامكانية البحث عن الكلمة المطابقة او بصورة عامة , 
ملاحظة : 
اود ان انوه الى ان البرنامج هو برنامج تعليمي وليس برنامج احترافي > وقد حاولت على قدر الامكان ان اقوم بالتطرق الى 
الاخطاء العامة والشانعة التي ممكن ان يتعرض اليها من يقوم بتصميم برنامج قواعد البيانات ومعالجتها ... 
لکن مع کل هذا فان لکل برنامج قواعد بیانات خصوصیاته واسلوب خاص ببرمجته ونادرا ما نجد برنامج قواعد بیانات يصلح 
لجميع الاستخدامات .. 


البداية : 
في البداية نقوم بانشاء قاعدة بيانات باستخدم برنامج مايكروسوفت اكسس وم۸ 1$ .. ونخزنها بالاسم Mya)‏ . 
تحتوي قاعدة البيانات على جدول واحد فقط بالاسم (1٥1ط11)‏ وهو يحتوي على الحقول التالية .. 


اسم الحقل نوع الحقل 
Text Name‏ 
Text City‏ 
Text Mobile‏ 
ونقوم بعد ذلك باضافة البيانات التالية للجدول : 
Name City Mobile‏ 
Auday Basrah 07801534923‏ 
Ammar Baghdad 0783801232985‏ 
Hadi Muthanna 07801414565‏ 
Kasim Basrah 07801991832‏ 
husien Hila 07801489782‏ 


الان نقوم بتشغيل فيجوال بيسك دوت نت ونقوم بانشاء مشروع جديد .. ونقوم بخزنه ... 


الخطوة التالية هي ان نقوم بنقل قاعدة البيانات الى نفس مجلد البرنامج في المجلد عںطء( داخل المجلد ما8 . 


الان نقوم بتصميم النموذج ليبدو كما يلي : 


Email: engauday@hotmail.com 


حول البرنامج 


وتجدر الاشارة هنا الى ان صناديق النلصوص ( المقابلة للاسم و المدينة و رقم الموبايل ) تم اسناد القيمة مuإ]‏ للخاصية 
yا« R430‏ التابعة لها .. 
الان نبدا بكتابة الشفرة ... 
في قسم التصريحات العامة نكتب الشفرة التالية .. 
Imports System.Data‏ 
Imports System.Data.OleDb‏ 


بعد ذلك نقوم بكتابة الشفرة التالية ضمن ووواC‏ icاطں۴‏ التابع ل ۴٥١۵1‏ 


Imports System.Data 
Imports System. Data. HleDhb 
Public Class Forml 
Dim Contr A5 String = "Provwider=Micro3oft. JEL. HLEDB.4.U;" & | 
"Data Source =" ¢ Application. StartupPath & "" HyData.madb™ 


Dim Lonn A3 Wer UleDbTCoannection{LoOnSEE] 

Dim DataSet1 As Nev DataSet 

Dim SQLstr As String = "SELELT * FREON Tablel" 
End Class 


هنا نقوم بتعريف المتغير )5ر0 على انه متغير نصي وهو يحتوي على مزود قواعد البيانات الخاص بمايكروسوفت اكسس . 
وكذلك نقوم بتحديد مسار قاعدة البيانات › وقد استخدمنا ط٤د۲‏ مسu٤إه٤S.«هi)هicاpمA‏ للوصول الى المسار الحالي الذي 


بعد ذلك قمنا بتعريف « C٠"‏ من اجل الربط بقاعدة البيانات وهو يحتاج الى ان نمرر له المتغير ٤5رهم‏ لكي تكتمل عملية 
الربط بقاعدة بيانات المصدر ... 


اما Q1»)‏ فهي عبارة تقوم بتحميل كافة معلومات الجدول 1٥[طه"١‏ .. 


الان نكمل كتابة الشفرة .. 
ننقر على النموذج نقرا مزدوجا ونكتب الشفرة لتبدو كما يلي .. 


الكامل في قواعد البيانات إعداد: المهندس عدي ياسين Email: engauday@hotmail.com‏ 


Private Sub Forml Load[ByFVal sender A3 System. hject, By¥al e A3 Sys! 
Loann. pen lL} 
Dim DataAidapterl1l As Nev UleDbDatadlidapter [SULatr, Lonn! 


DTataidapterl.Fill[TataSetl, "Table1"} 
LOnHn.LIDSE I} 
Ena sub 


بعد ان قمنا بتعريف )مدل 4ه( والذي يحتاج ان نمرر له جملة 5Q1‏ المخزنة في )ء1 SQ‏ و كذلكڭ C0١0‏ .. 
نقوم بملئ D4)5٥٤1‏ بالبيانات التابعة للجدول 1ء1ط4٠‏ باستخدام الخاصية ۴111 التابعة 1إءt)موDa)44Ad‏ . 

اما Conn. pen‏ و C0nn.C10se‏ فهي لفتح الاتصال واغلاقة مع قاعدة البيانات .. 

حتى الان انتهت عملية الاتصال بقاعدة البيانات .. وقمنا بوضع كافة معلومات الجدول 1ء[ط4١‏ داخل 6)1؟45اة0 . 

الان نقوم بكتابة الشفرة اللازمة من اجل ربط صناديق النصوص sءء×80×١٠۲‏ بقاعدة البيانات لكي نعرض البيانات عليها . 


ملاحظة : بعد ان قمنا بتعبئة D٤56۲1‏ بالبيانات › فاننا سنتعامل معها » بمعنى أي تغيير للبيانات لن يتم على قاعدة البيانات 
الإاصلية وانما سيتم على 6)1؟04)4 .. 


: نعود الان لكتابة الشفرة اللازمة بربط صناديق النصوص بقاعدة البيانات لتبدو كما يلي‎ 
Private Bub Forml Load{BFVal sender As System. Ubject, Bylal e As Syste! 
Lann. pen lL} 
Dim DataAidapterl As Nev leDpDataldapter [(SULS2LE, Lonn] 
DataAidapterl1l.Fill{DataSetl, "Table1"} 
Lonn.LlIoae f} 


TexLEBOxXxL1.DataBindings. AAAI "Text", DataSetl, "Tab lel . Hame"; 
TeExXTBOxXZ.DataBindingsa.AAA([ "Text", DataSetl, "Tablel.Tity™"} 
TeExXTBOX3.DataBindings.AAAI"Text", DataSetl, "Tablel. Hobile"; 


End Sub 
.. لغاية هنا » يمكن تجربة البرنامج للتاكد من عمله بشكل صحيح‎ 
ننقر على ۴5 من لوحة المفاتيح لتشغيل البرنامج .. ستظهر لنا نافذة البرنامج .. ويتم عمل اتصال بقاعدة البيانات وعرض‎ 
: البيانات على صناديق النصوص كما يلي‎ 


الكامل في قواعد البيانات إعداد: المهندس عدي ياسين Email: engauday@hotmail.com‏ 


برنامج قواعد البيانتات الاصدار *,1 
الاسم : 
المدينة : 


se laTEATT ' رقم الموبايل‎ 
1 


حول البتاصح 


من خلال ملاحظتنا للبرنامج › فان البرنامج بوضعه الحالي غير كافي لعرض البيانات الموجودة في قاعدة البيانات .. حيث ان 
البرنامج يعرض لذا السجل الاول فقط .. 
لنقم بالخطوة التالية وهي كتابة الشفرة اللازمة للتنقل بين سجلات قاعدة البيانات من خلال النقر على الازرار .. 


Mo han 


ننقر نقرا مزدوجا على الزر ( السجل الاول ) ونكتب الشفرة التالية 


Private Sub Button ClickIByVal sender As System.Object, BF 
HE. BindingLontext (DataSetl, "tablel"} . Position = U 
End Sub 


من خلال ملاحظة الشفرة نلاحظ اننا نجعل موقع السجلات هو صفر وذلك للانتقال الى السجل الاول .. 


: الان ننقر على الزر ( السجل السابق ) ونكتب الشفرة التالية‎ 
Pri¥ate Rub Button3 LlIicE([ByVal sender As Rystem. Ohject, Byv 
He. BindingLtontext [DataSetl, "tapþlel"}] . Position —= 1 


End Sub 
: ونكتب الشفرة للزر (السجل التالي ) كما يلي‎ 


Pri¥ate Rub Button LlIick[ByYal sender As Byatem.bhject, BF 
Me. BindingLontext [DataSetl, "tablel1l"}] . Position +4= 1 


End Sub 
من خلال مشاهدتنا لشفرتي الزرين السجل السابق و السجل التالي نلاحظ اننا نقوم بانقاص او زيادة موقع السجل الحالي بمقدار‎ 


واحد لكي ننتقل للسجل المطلوب . 
اما شفرة الزر (السجل الاخير ) فنکتبها كما يلي : 


Private Rub Buttonl ClickIByVal sender As System.Object, ByVal e As System, EventArgs) Handles Buttonl.Click 
He. BindingContext (DataSet l, "table1l"} . Position = He. BindingContext [DataSetl, "tablel"} . Count — 1 
End Sub 
نلاحظ اننا جعلنا موقع السجل الحالي مساوي لعدد السجلات الكلي ناقصا واحد ؟؟‎ 
.. السبب ان الخاصية ”)زوم تبدا العد من الرقم صفر اما الخاصية سه فتبدا من واحد‎ 


الكامل في قواعد البيانات إعداد: المهندس عدي ياسين Email: engauday@hotmail.com‏ 
الى هنا انتهت شفرة التنقل بين السجلات .. نقوم بتشغيل البرنامج وتجربة النقر على الازرار للتنقل بين السجلات . 


. الخطوة التالية هي عرض موقع السجل الحالي بين ازرار التنقل بين السجلات‎ 
: نقوم بكتابة الاجراء التالي في نهاية الشفرة‎ 
Public Sub cChangEeEPositionl ) 
Labe1l43. RightToLeft = Windows. Forms. Right TDLEIET . Tes 
Lapþel4. Text = "jxanll " & Me. Bindingltontext [(DataBetl, "taplel"}] . Position & 
" j " & He. EindingLontext [(DataSetl, "tablel"}] . Count — 1 
End Sub 


بعد ذلك نقوم باستدعاء هذا الاجراء في شفرة كل زر من ارار التنقل بين السجلات . 

كذلك نقوم باستدعاء الاجراء في شفرة تحميل النموذج ۴٠۲.",1_1[044‏ ليتم عرض موقع السجل الحالي عند بداية تحميل 
البرنامج . 

تكون الشفرة الكلية للبرنامج كما يلي .... 


Imports System. Data 
Imports System. Data.OleDb 
Publiê CLaëë Forml 
Dim COnStEE. AS SEEIRg = "PrOVIQdeEFEMICEOSOEE. Jet: OLEDB.4:0™" & | 
"Data Source =" & Application.StartupPath & "\MyData.mdb" 
Dim Conn As New OleDbConnection (ConStr) 
Dim DataSet1 As New DataSet 
Dim. SQOLSÈrE AS SEEING = "SELECT * FROM Tablel™ 


Private Sub Forml1 Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
MyBase. Load 
Conn. Open () 
Dim DataAdapterl As New OleDbDataAdapter (SQLstr, Conn) 
DataAdapter1.Fil1l (DataSetl, "Table1") 
Conn.Close () 


TextBox1.DataBindings.Add ("Text", DataSetl, "Table1.Name") 
TextBox2.DataBindings.Add ("Text", DataSetl, "Table1l.City") 
TextBox3.DataBindings.Add ("Text", DataSetl, "Table1l.Mobile") 


ChangePosition () 
ERQ Sub 


Private Sub Button4 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
Button4.Click 
Me.BindingContext (DataSet1l, "table1l").Position = 0 
ChangePosition () 
End Sub 


Private Sub Button3_ Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
BUۓÈLONnSCLLGK‎ 
Me.BindingContext (DataSet1l, "table1l").Position == 1 
ChangePosition () 
EA Sub 


Private Sub Button2 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
Button2.CILIiSkK 
Me.BindingContext (DataSet1l, "table1l").Position += 1 
ChangePosition () 
End Sub 


Private Sub Button1l Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
BUEEONLACLLGEK 
Me.BindingContext (DataSet1l, "table1l").Position = Me.BindingContext (DataSetl, "tablel") .Count - 1 
ChangePosition () 
End Sub 
Public Sub ChangePosition () 
Label4.RightToLeft = Windows.Forms.RightToLeft.Yes 
Label4.Text = "Jşall " & Me.BINdInGContext{(DãtaSetl, "tablel") .POSLELOR & _ 
" ùja " & Me.BindingContext (DataSet1l, "table1l") .Count = 1 
EBd Sub 
Enid CLASS 


الان يمكن تجربة البرنامج .. نلاحظ انه بامكاننا التنقل بين السجلات .. ونلاحظ ان 14ءطه.[ يقوم بعرض موقع السجل الحالي 
بصورة صحيحة .. 


الكامل في قواعد البيانات إعداد: المهندس عدي ياسين Email: engauday@hotmail.com‏ 


الان سننتقل الى عملية اضافة سجل جديد لقاعدة البيانات 

توجد العديد من الافكار لترتيب عملية الاضافة › لكني ساتبع الطريقة التالية : 

عندما ينقر المستخدم على زر ( اضافة سجل جديد ) سيتم عرض نموذج جديد للمستخدم يحتوي على نفس صناديق النصوص 
ولكنها فارغة لكي يستطيع المستخدم ان يكتب فيها المعلومات الجديدة . 

طبعا سيحتوي النموذج على زرين وهما ( حفظ ) وعند نقره يتم اضافة البيانات الى قاعدة البيانات و الرجوع الى الواجهة 
الرئيسية » اما الزر الآخر فهو ( الغاء) حيث عند النقر عليه يتم الرجوع للواجهة الرئيسية دون القيام بعملية الاضافة . 

الان نقوم باضافة نموذج جديد للمشروع كما مبين في الصور التالية .. 

| Project | Build Debug Data Forms 


= Add Windows Form... 


Add User Control...‏ ق 


3 Add Module... 


Add Class...‏ ا 

ê] Add Mew Item... Ctrl+shift + 
i] Add Existing Item... ttrl+D 
Û Show All Files 


Add Reference... 


Add Web Reference... 


EngAauıday Properties, 


Add New Item - EngAuday 


Templates: 


¥isual Studio installed templates 


Explorer Form MDI Parent About Box Lagin Farm Splash Screen Class 


Form 


Module DataSet SL Database User Control Text File 


My Templates 


8 


A blank Windows Forrn 


Name: Formê,yb 
2 Ad Larıcel 


بعد ان نختار ۴٣۲۳‏ وس0 لم۷1 ننقر على الزر ۸44 .. سيتم إضافة نموذج جديد كما في الصور التالية .. 
Solution Explorer‏ 


IEEE 


EngAuday‏ 3ا 
aA] PY Project‏ 


نقوم بتصميم النموذج ليبدو كما يلي : 


Email: engauday@hotmail.com 


الان سنقوم باضافة الشفرة الى الزر ( اضافة سجل جديد ) لكي يقوم بعرض النموذج ۲ .. 
ننقر على الزر نقرا مضاعفا ونكتب الشفرة لتبدوا كما يلي : 


Private Sub ButtonS_ ClIick[ByYal 
Dim frm As WHev Formê 


FEMS .Shov | | 
He. Hide [} 
End Sub 


في الشفرة اعلاه قمنا بتعریف ۲.2 على انه ۴٠۲"2‏ لكي نستطيع استدعاء النموذج ۲ من داخل النموذج ١‏ باستخدام 
الخاصية س0ط؟ .. بعد ذلك نقوم باخفاء النموذج ١‏ باستخدام الخاصية 11 . 
الان ننتقل الى النموذج ۲ .. 
في النموذج ۲ نقوم بكتابة الشفرة لتبدو في نهايتها كما يلي : 
Imports System. Data‏ 
Imports System. Data.OleDb‏ 


EUbLIS CLI3SS EFOEM2 
Dim frml1 As New Forml 


Private Sub Buttonl Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
Buttonl:Cliek 

Try 
Dim SavInto As New OleDb.OleDbCommand 
Di CORSEE AS SEEING = 

PPEOVIQEEF=MTEFOSOFE TEE: OLEDB. 4.0; Data Sours =" ge | 
Application.StartupPath & "\mydata.mdb" 

Dim Conn As New OleDbConnection (ConStr) 
SavInto.Connection = Conn 
SavInto.CommandType = CommandType. Text 
SavInto:TCommandText = INSERT INTO: Tablel (Namey; CIEy,Mobile)™ & _ 
"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "') " 
Conn. Open () 
SavInto.ExecuteNonQuery () 
Conn.Close () 
Ms Bo ("قق عملدة الافاقة و الفط ق قاعدة الS اناق چاخ"(‎ 
Me.Close () 
frml1. Show () 

Catch ex As Exception 
ERIE SUB 

End Try 

End Sub 


Private Süb: Button2 Click (ByVal :séender A5 System:Objett, ByVal e As Systéem: EventArgs) Handles 
Bütton2:.Cl1i1ëk 
Me.Close () 
frml1. Show () 
EQ Sub 
Eid Class 


الان ناتي الى مناقشة الشفرة .. 
كتوضيح اولي › فاننا في هذا النموذج لانعتمد على الاتصال بقاعدة البيانات في النموذج الاول › وانما نقوم بعمل اتصال جديد . 
لذلك نشاهد الشفرة 
Imports System.Data‏ 
Imports System.Data.OleDb‏ 


في بداية النمو ذج في قسم التصاريح العام . 
بعد ذلك قمنا بتعریف ۲.1 على انه ۴٠۲.1‏ لنستطيع استدعاء النموذجا . 
بعد ذلك استخدمنا ایو“٤ Try‏ لمعالجة الاخطاء . 


eo 


الكامل في قواعد البيانات إعداد: المهندس عدي ياسين Email: engauday@hotmail.com‏ 


الشفرات التالية هي لعمل الاتصال بقاعدة البيانات واضافة المعلومات الموجودة في صناديق النصوص الى قاعدة البيانات 
باستخدIم INSERT‏ . 
اما الصيغة العامة للعبارة N5٤۴1‏ فهي : 

INSERT INTO Table1 (Field1,Field2,Field3) values ('val1','val2','val3') 


بعد ان تتم اضافة البيانات الجديدة الى قاعدة البيانات نقوم باغلاق الاتصال ومن ثم استدعاء النموذج الاول واخفاء النموذج 
الحالي . 

الان يمكننا ان نجرب المشروع › ننقر على ۴5 .. 

ننقر على زر اضافة سجل جديد .. فيتم عرض نموذج ۲ واخفاء نموذج ١‏ 

نكتب المعلومات التالية في النموذج الجديد 

samer 

Baghdad 

030154634 

وننقر زر حفظ .. 

سیتم اخفاء نموذج الاضافة والرجوع الى النموذج ١‏ .. لو نقرنا على الزر ( السجل الاخير ) لكي ننتقل الى اخر سجل سنلاحظ 
انه تمت اضافة المعلومات الجديدة ... كما نلاحظ ان 14ط[ قد زاد رقم السجلات الكلي المعروض فيه . 


يمكن ان نعيد النقر على زر اضافة سجل جديد ونقوم باضافة معلومات جديدة وبعدها ننقر على زر الغاء » سنلاحظ عدم اضافة 
المعلومات الى قاعدة البيانات . 


الان نقوم بكتابة الشفرة اللازمة لحذف سجل من قاعدة البيانات .. وتجدر الاشارة الى ان السجل الذي سيتم حذفه هو السجل 
الحالي المعروض في صناديق النصوص .. 
ننقر على الزر ( حذف سجل ) نقرا مزدوجا ونقوم بكتابة الشفرة التالية : 
Ms BْOXSty1le.OkCancel) = MsgBoxResult.Cancel‏ ,"هل تريد حذف السجلJ‏ |إخdl"( 1F MsgBox‏ 
Then‏ 
EXT Sub‏ 
ENG TE‏ 
Dim SavInto As New OleDb.OleDbCommand‏ 
Dim DataAdapterl As New OleDbDataAdapter (SQLstr, Conn)‏ 


SavInto.Connection = Conn 
SavInto.CommandType = CommandType. Text 
SavInto.CommandText = "DELETE FROM Table1 WHERE mobile ='" & 


Trim (TextBox3.Text) & "'"‏ 
Conn. Open ()‏ 
SavInto.ExecuteNonQuery ()‏ 
DataSet1.Clear ()‏ 
DataAdapter1.Fil1l (DataSetl, "Table1l")‏ 
Conn.Close()‏ 
("عغت عملية الحذف في قافغدة الببانات بنتجاخ"( 860x*XټMsg‏ 
ChangePosition ()‏ 
في البداية نسال المستخدم ان كان يريد حذف السجل الحالي بواسطة صندوق رسالة » وهي عملية تاكيد يجب القيام بها لان 
المستخدم قد ينقر على الزر دون قصد وتتم حذف البيانات مباشرة .. 
فان كان المستخدم لايريد حذف البيانات نخرج من الاجراء ( حدث النقر ) .. 
اما ان کان یرید ان حذف البيانات فعندها باستخدام 1۴ D٤1٤‏ لاتمام عملية الحذف .. 
تجدر الاشارة اننا استخدمنا الحقل 1زط0 كحقل اساسي باعتبار ان ارقام الموبايل لايمكن ان تتشابه .. وبذلك اعتمدنا على 
هذه الخاصية من اجل عملية الحذف . 
يمكن ان نقوم بترقيم السجلات ولكل منها رقم فريد لايتكرر ( ما يسمى عادة بالمفتاح الاساسي ) ونستخدمه بدل رقم الموبايل في 


عملية الحذف . 
كذلك نلاحظ iil‏ اتد ChangePosition ءIرجiل! ie‏ في نهاية الشفرة وذلك لكي نصحح عدد السجلات التي يتم عرضها في 
Label4‏ . 


الان يمكننا ان نقوم بتجربة المثال ونقوم بحذف احد السجلات نلاحظ ان البرنامج سيستجيب لنا ويعرض رسالة تاكيد »> فان نقرنا 
على ×0 تتم عملية حذف السجل الحالي من قاعدة البيانات نهائيا . 


التعديل على سجل موجود : 
بعد ان اكملنا الشفرة الخاصة باضافة سجل جديد > وحذف سجل موجود ر 
ناتي الان الى كتابة الشفرة الخاصة بتعديل سجل موجود .. 
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نقوم في البداية باضافة نموذج جديد الى المشروع كما تعلمنا سابقا ليكون عدد النمواذج الكلي هو ٣‏ 


Solution Explorer 
Bl EILELEÎ 
اا‎ EngAuday 

aA] MY Project 
[=] Form1.wb 
E] Forma.wb 
E] Farm3.b 


نقوم بتصميم النموذج ۳ ليبدو كما يلي .. 


يجب ان نقوم بجعل الخاصية م1طو¡۷ تساوي مء[ه۴ التابعة ل 14ءطه.1 والذي خاصية ٠٠×۲‏ التابعة له تساوي (حقل مخفي) 
((تم احاطته بمربع احمر اللون في الصورة اعلاه لتوضيحه)) .. 

من خلال شرح الدرس سنلاحظ فائدة هذا ال [إمطو_ .. 

الان نذهب الى النموذج ١‏ ونكتب الشفرة التالية لحدث النقر للزر ( تعديل السجل الحالي ) .. 


Private Sub Button6 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
BuUtEtOnG.CLILEK 
Dim frm3 As New Form3 
frm3.TextBox1.Text = Me.TextBoxl.Text 
frm3.TextBox2.Text Me.TextBox2. Text 
frm3.TextBox3. Text Me.TextBox3. Text 
frm3.Label4.Text = Me.TextBox3. Text 
fErm3. Show () 
Me.Hide () 
Eid Sub 


هنا قمنا بتعریف ٤۲3‏ علی انه ۴٠۲.3‏ لنستطيع استدعاء النموذج ۳ .. 
بعد ذلك يجب ان نجعل النص المعروض في صناديق النصوص في النموذج ٠‏ مساوية للنص المعروض في صناديق النصوص 
في النموذج ١‏ .. لان المستخدم يريد التعديل على قيمة السجل الحالي .. 
بعد ذلك جعلنا قيمة ٥×)‏ 14.۲ ط14 تساوي قيمة 1ex80x3.1e×†‏ ؟ 

السبب اننا نحتاج في عبارة التعديل )0 صل الى قيمة احد الحقول ( وهي قيمة المفتاح الاساسي عادة ) قبل ان يتم تغييرها 
من قبل المستخدم .. لهذا السبب استخدمنا 14ط[ وجعلناه مخفيا . 
بالتاكيد توجد العديد من الافكار البرمجية لنقل قيمة الحقل مازطه1 واسلوبنا الحالي هو ليس الاسلوب البرمجي الصحيح › 
ولكننا اتبعناه كون برنامجنا تعليمي وليس برنامجا ضخما › اما في الحالة الطبيعية فيمكننا ان نستخدم ءا له من اجل ان 
نقوم بنقل قيم المتغيرات بين جميع النماذج في المشروع بحرية .. 


: الان نذهب الى النموذج ۳ ونكتب الشفرة الخاصة به لتبدو فى نهايتها كما يلى‎ 
Imports System. Data 
Imports System. Data.OleDb 
Public Claëۍë=‎ Form3 
Dim frm As New Forml 


Private Sub Buttonl Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
BUEEONL CLLEEK 
Dim n As String = Label4.Text 
Dim SavInto As New OleDb.OleDbCommand 
Dim COoRStE A& String = 
T"PrOVILGdEEF=MTEEOSOFE.TEE.OLEDB. 4.0; Data Sourtée = ig | 


٩۹ 
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Application.StartupPath & "\mydata.mdb" 
Dim Conn As New OleDbConnection (ConStr) 
SavInto.Connection = Conn 
SavInto.CommandType = CommandType. Text 
SavInto.CommandText = "UPDATE Tablel SET name = '" & Trim(TextBoxl.Text) & "' ,City ='" g& 
Trim (TextBox2.Text) & "' , mobile= '" & Trim (TextBox3.Text) & "' WHERE mobile ='" &n & ™'™ 
Conn. Open () 
SavInto.ExecuteNonQuery () 
Conn.Close () 
MsgBox ("حlچجنiب ("تمت عملية الاضافة و الحفظ في قاغدة البيانات‎ 
Me.Close () 
frm. Show () 
End Sub 


Private Sub Button2 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
BüUËËOnNZ2.CILGEK 


Me.Close () 
frm. Show () 
End Sub 
End Class 


كما نلاحظ اننا اتبعنا نفس الاسلوب في كتابة شفرة نموذج الاضافة .. والاختلاف لدينا هنا هو في عبفlرö UPDATE‏ 
والصيغة العامة لها هي : 


UPDATE Tablel SET Field1 = 'value' , Field2 = 'value' , Field3 ='value' WHERE Field = 'value' 


وقد استخدمنا بعد WHERE‏ قيمة الحقل زط قبل تغييرها . 

الى هنا انتهت شفرة التعديل على السجل الحالي .. يمكننا ان نقوم بتجربة النموذج الان من خلال تشغيل البرنامج و النقر على 
زر تعديل .. نلاحظ انه يتم عرض نفس بيانات السجل .. نقوم بتعديل احد القيم وننقر حفظ نلاحظ ظهور صندوق رسالة يخبر 
المستخدم ان عملية التعديل تمت بنجاح .. 


البحث : 
حتى هذه المرحلة قمنا باكمال اغلب الوظائف في برنامجنا ولم يتبقى لدينا سوى الدخول في عملية البحث .. 
نقوم باظافة نموذج جديد .. 


سناخذ نظرة عامة عن كيفية سير العمليات عند البحث عن معلومة معينة .. 


عندما ينقر المستخدم زر البحث ... ويظهر له نموذج البحث» فاننا سنتبع معه الخطوات التالية : 
يقوم المستخدم بتحديد الحقل المطلوب البحث فيه ( الاسم > المدينه › الموبايل )۰ 
يقوم المستخدم بتحديد طريقة البحث ( مطابق للكلمة > عام ) 
يدخل المستخدم الكلمة المراد البحث عنها. 
ینقر على زر ( بحث ). 
تتم عرض نتيجه البحث على شبكه عرض البيانات View‏ 4¡ 04)46 . 
يتم عرض السجل الحالي على صناديق النصوص . 
يتم الغاء تفعيل زر (بحث ٬تفعيل)‏ زري (الحذف › التعديل) . 
. عندما ينقر المستخدم على زر (تعديل) › يتم الغاء تفعيل زري (الحذف › تعديل) › وتفيل زري ( حفظ › الغاء) . 
. عندما يكمل المستخدم تعديل السجل الحالي او يلغي العملية › يتم الغاء تفعيل زري ( حفظ › الغاء ) وتفعيل زري 
( حذف › تعدیل ) . 
الان نقوم بكتابة الشفرة التالية في حدث النقر التابع لزر (بحث ) في نموذج ١‏ : 
Private Sub Button8 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles‏ 
BüuttonS:CIiEkK‏ 
Dim frm4 As New Form4‏ 
frm4. Show ()‏ 


Me .Hide () 
End Sub 


ي چ O nN‏ کے > < ھےھے 


وهي تقوم بعرض نموذج البحث ۴٠۲١.4‏ واخفاء النموذج الحالي . 
نقوم بتصميم نموذج ؛ ليبدو كما في الصورة التالية : 
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DataĞGridView1 


عودة للواجهة الرثيسية 


الان نكتب شفرة النمودذج لتبدو في نهايتها كما يلي : 

Imports System.Data 
Imports System. Data.OleDb 
Public Claš= Form4 

Dim frm As New Forml 

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & 

"Data Source =" & Application.StartupPath & "\MyData.mdb" 

Dim Conn As New OleDbConnection (ConStr) 

Dim DataSet1 As New DataSet 

Dim SQLstr As String 

Dim m As String 

Private Sub Buttonl Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
Button1.Click 

Static m As Integer = 0 


If TextBox1.Text = Trim("") Then Exit Sub 

If RadioButton4.Checked = True Then 
ExactSearch () 

Elself RadioButtonS5.Checked = True Then 
GeneralSearch () 

Ed. TÊ 


Conn. Open () 

Dim DataAdapterl As New OleDbDataAdapter (SQLstr, Conn) 

DataAdapter1.Fill (DataSet1, "Table1") 

Conn.Close () 

TextBox2.DataBindings.Add ("Text", DataSet1l, "Table1.Name") 

TextBox3.DataBindings. Add ("Text", DataSetl, "Table1l.City") 

TextBox4.DataBindings. Add ("Text", DataSetl, "Table1.mobile") 

DataGridView1.DataSource = DatasSet1 

DataGridView1l.DataMember = "Tablel" 

Button1.Enabled = False 

If Me.BindingContext (DataSetl, "Tablel") .Count = O0 Then 
MsgBOX ("NO Result, PLease Try Again ") 
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Exit Sub 
Ed TÊ 
Button2.Enabled = True 
Button3.Enabled True 
End Sub 
Public Sub ExactSearch () 
If RadioButton1.Checked = True Then 


SQLstr = "SELECT * FROM Tablel1l WHERE name = '" & TextBoxl1l.Text & "'" 
Elself RadioButton2.Checked = True Then 
SQLstr = "SELECT * FROM Table1l WHERE City = '" & TextBoxl.Text & "'" 
Elself RadioButton3.Checked = True Then 
SQLstr = "SELECT * FROM Tablel WHERE mobile = '" & TextBoxl1.Text & "'" 
End ILE 
ERG Sub 


Public Sub GeneralSearch () 
If RadioButton1.Checked = True Then 


SQLstr = "SELECT * FROM Tablel WHERE name LIKE '%" & TextBoxl1.Text & "%'" 
Elself RadioButton2.Checked = True Then 
SQLstr = "SELECT * FROM Tablel WHERE City LIKE '%" & TextBoxl1.Text & "%'" 
Elself RadioButton3.Checked = True Then 
SQLstr = "SELECT * FROM Tablel WHERE mobile LIKE '%" & TextBox1.Text & "%'" 
ERQ IE 
End Sub 
Private Sub Button6 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
Button6.Click 
Me.Close () 
Erm. Show () 
End Sub 
Private Sub Button2 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
BûüۓEONZ.‎ CLLSGK 
If MsgBox ("ydlڂÈ|‎ Jجچجشسلا ,"هل تريذ حذف‎ MsSBOoxSty1le.OkCancel) = MsgBoxResult. Cancel Then 
El Sub 
ERG IÊ 


mim 


mI 


Dim adapter2 As New OleDbDataAdapter (SQLstr, Conn) 

Dim SavInto As New OleDb.OleDbCommand 

SavInto.Connection = Conn 

SavInto.CommandType = CommandType. Text 

SavInto.CommandText = "DELETE FROM Tablel WHERE Mobile ='" & Trim (TextBox4.Text) 
Conn. Open () 

SavInto.ExecuteNonQuery () 

DataSet1.Clear () 

adapter2.Fil1l (DataSet1l, "Table1") 

Conn.Close () 


End Sub 
Private Sub Button3_ Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
BUEEONSECLLEK 
Button4.Enabled = True 
Button5.Enabled = True 
Button3.Enabled = False 
Button2.Enabled = False 
TextBox2.ReadOnly = False 
TextBox3. ReadOnly = False 
TextBox4.ReadOnly = False 
m = TextBox4.Text 
End Sub 
Private Sub Button4 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
Button4.Click 
Dim SavInto As New OleDb.OleDbCommand 
Dim adapter2 As New OleDbDataAdapter (SQLstr, Conn) 
SavInto.Connection = Conn 
SavInto.CommandType = CommandType. Text 
SavInto.CommandText = "UPDATE Tablel SET name = '" & Trim(TextBox2.Text) & "' , City = '" & 


Trim (TextBox3.Text) & "' , Mobile = '" & Trim(TextBox4.Text) & "' WHERE Mobile ='" & m & 
Conn. Open () 
SavInto.ExecuteNonQuery () 
Conn.Close () 
Button4.Enabled = False 
Button5.Enabled = False 
Button3.Enabled = True 
Button2.Enabled = True 
TextBox2.ReadOnly = True 
TextBox3. ReadOnly = True 
TextBox4.ReadOnly = True 

Eid Sub 
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Private Sub ButtonS5 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
BüttOnS.CILEK 
Button4.Enabled = 
ButtonS5.Enabled = False 
Button3.Enabled 
Button2.Enabled = True 
TextBox2.ReadOnly = True 
TextBox3. ReadOnly = True 
TextBox4.ReadOnly = True 
Eid Sub 
ERG ELaSS 
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الان سناتي الى مناقشة الاجزاء المهمة من الشفرة .. 
ناتي الى شفرة زر ( بحث ) <۸1 >Bu))٥‏ : 
في البداية نقوم بالتاكد ان المستخدم قام بادخال نص في صندوق النص للبحث عنه .. 
If TextBox1.Text = Trim("") Then Exit Sub‏ 
فان لم يقم المستخدم بادخال نص معين عندها يتم الخروج من الاجراء . 
بعد ذلك يجب ان نعرف أي من اساليب البحث حددها المستخدم .. ( مطابق للكلمة › عام ) .. لان هذا سيحدد صيغة عبارة SQ1؟‏ 
التي ستتم عملية البحث من خلالها .. 
بعد ذلك وتبعا لتحديد نوعية البحث نقوم باستدعاء احد الاجرائين : 
اما الاجراء طءإو٥5S)ءه×K‏ للبحث عن الكلمة المطابقة : 


Public Sub ExactSearceh () 
If RadioButton1.Checked = True Then 


SQLstr = "SELECT * FROM Table1l WHERE name = '" & TextBox1.Text & "'" 
Elself RadioButton2.Checked = True Then 
SQLstr = "SELECT * FROM Table1l WHERE City = '" & TextBoxl.Text & "'" 
Elself RadioButton3.Checked = True Then 
SQLstr = "SELECT * FROM Tablel WHERE mobile = '" & TextBoxl1.Text & "'" 
Eid TÊ 
End Sub 


: او الاجراء طءاوءS؟1وإءرءG للبحث العام‎ 
Public Sub GeneralSearch () 
If RadioButton1.Checked = True Then 


SQLstr = "SELECT * FROM Tablel WHERE name LIKE '$%" & TextBox1.Text & "%'" 
Elself RadioButton2.Checked = True Then 

SQLstr = "SELECT * FROM Tablel WHERE City LIKE '%" & TextBox1.Text & "%'" 
Elself RadioButton3.Checked = True Then 

SQLstr = "SELECT * FROM Table1l WHERE mobile LIKE '%" & TextBox1.Text & "$%'" 
Ehd TÊ 


End Sub 


ونلاحظ الفرق بين الاجراء المطابق و العام هو في الكلمة 1۴ .. حيث اننا البحث المطابقة نحدد ان تكون النتيجة مساوية 


. 


للنص المدخل في صندوق النصوص › اما في البحث العام فنبحث عن أي كلمة تكون مشابهة للنص في صندوق البحث . 
وفي كلا الاجرائين نتاكد من الحقل الذي طلب المستخدم البحث فيه ( الاسم › المدينة › الموبايل ) . 


a ۰ 


ثم بعرض النتيجة في صناديق النصوص 


بعد ذلك نقوم بالاتصال بقاعدة البيانات وملئ 1 بالبيانات تبعا لجملة SQL‏ التي تم تحديدها مسبقا . 


TextBox2.DataBindings.Add ("Text", DataSetl, "Table1l.Name") 
TEXEBOK3:DataBindinGS.AQd:( "Text", DataSeêtl; "TablelsCity™) 
TextBox4.DataBindings.Add ("Text", DataSetl, "Table1l.mobile") 


وعرضها في شبكه عرض البيانات ايضا : 
DataGridView1.DataSource = DataSet1‏ 
DataGridView1l.DataMember = "Tablel"‏ 


ثم نقوم بالغاء تفعيل زر البحث .. وبعدها نتاكد ان كانت توجد سجلات فى نتيجة البحث .. 
If Me.BindingContext (DataSetl, "Table1l").Count = 0 Then‏ 


MsgBox ("No Result, Please Try Again ") 
EXTE Sub 


فان لم توجد سجلات في نتيجة البحث عندها نعرض رسالة تنبيه للمستخدم نخبره فيها بعدم وجود نتيجة للبحث ويجب ان يعيد 
البحث من جديد . 


اما ان وجدت نتيجة للبحث فندها يتم عرضها على شبكة البيانات و صناديق النصوص وتفعيل زري ( التعديل › الحذف) . 
Button2.Enabled = True‏ 
Button3.Enabled = True‏ 


اما شفرة حذف سجل فهي مطابقة تماما لشفرة حذف سجل في النموذج الاول والتي تم شرحها مسبقا ... 


اما شفرة تعديل سجل موجود › فاننا نقوم بكتابتها في زر ( حفظ ) .. والذي يتم تفعيله عند النقر على زر (تعديل السجل الحالي ). 
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عند النقر على زر ( تعديل السجل الحالي ) › فاننا نقوم بالغاء تفعيل زري ( حذف السجل الحالي › تعديل السجل الحالي) و نفعل 
الزرين ( حفظ › الغاء ) .. وكذلك نجعل صناديق النصوص قابلة للتعديل ( eء[و۴‏ = رار 440ء۸ ) . 

وعندما نكمل عملية التعديل او نلغيها فنقوم بالعكس 

( نلغي تفعيل الزرين (حفظ › الغاء ) › نفعل الزرين ( حذف السجل الحالي › تعديل السجل الحالي ) ونجعل صناديق النصوص 
للقراءة فقط ) 


بذلك يكون اكتمل لدينا نموذج البحث مع الشفرة الخاصة به .. 


ننتقل الان الى النموذج الاول لاكمال باقي الشفرة . 
ننقر نقرا مزدوج لكتابة شفرة الزر (انهاء البرنامج ) 


Private Sub Buttonl0 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
BUELONLO. CLLEGK 
Application. Exit () 
EBd Sub 


ونقوم بكتابة شفرة الزر ( حول البرنامج) : 
Frivate SUB: BUEEoONI ClLrck (ByVal Sender Ag SyStem.Objecty, ByVal € As‏ 
System.EventArgs) Handles Button9.Click‏ 
DIM Tm AS SEEING‏ 
 & CEE‏ "خر تاهج كو اعد .لااك ا لاضصدار د" كا 
VDCELE‏ £ "وا اليرنامخ سن اغلا او" كغ س 
٤ vbr ۴‏ "الهندس عدي پاسن" = " 


m &= "engaudayGhotmail.com" 
MsgBox (m) 
EnN@d Sib 


الى هنا اكتمل البرنامج .. 
نقوم بتشغيل البرنامج › نجرب ازرار الاضافة و الحذف و التعديل ... 
نجرب زر البحث ونقوم بعدة عمليات بحث و التعديل على النتائج 


اخیرا 
ارجو ممن يقوم بدراسة البرنامج ان يقوم بتطويره و التعديل عليه › وبنفس الوقت يرفق معه ملف شرح بكل التطويرات و 
التعديلات وبنشره على شبكة الانترنت لكي تعم الفائدة على الجميع . 


المهندس 
عدي ياسين 
بكالوريوس هندسة حاسوب 
engauday@hotmail.com‏ 
13-2-7 


